home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
A-COMAL Series
/
(k)aaq.d64
/
o.dat
< prev
next >
Wrap
Text File
|
2007-02-28
|
1KB
|
88 lines
8000 FOR J:=1 TO 4 DO //O1
8010 PENUP
8020 FORWARD 2
8030 PENDOWN
8040 FORWARD 24
8050 PENUP
8060 BACK 26
8070 LEFT 90
8080 FORWARD 1
8090 RIGHT 90
8100 ENDFOR J
8110 //
8120 FOR J:=1 TO 2 DO // 2
8130 PENDOWN
8140 FORWARD 28
8150 PENUP
8160 BACK 28
8170 LEFT 90
8180 FORWARD 1
8190 RIGHT 90
8200 ENDFOR J
8210 //
8220 FOR J:=1 TO 18 DO // 3
8230 PENDOWN
8240 FORWARD 11
8250 PENUP
8260 FORWARD 6
8270 PENDOWN
8280 FORWARD 11
8290 PENUP
8300 BACK 28
8310 LEFT 90
8320 FORWARD 1
8330 RIGHT 90
8340 ENDFOR J
8350 //
8360 FOR J:=1 TO 8 DO // 4
8370 PENUP
8380 FORWARD 2
8390 PENDOWN
8400 FORWARD 9
8410 PENUP
8420 FORWARD 6
8430 PENDOWN
8440 FORWARD 9
8450 PENUP
8460 BACK 26
8470 LEFT 90
8480 FORWARD 1
8490 RIGHT 90
8500 ENDFOR J
8510 //
8520 FOR J:=1 TO 2 DO // 5
8530 PENUP
8540 FORWARD 2
8550 PENDOWN
8560 FORWARD 24
8570 PENUP
8580 BACK 26
8590 LEFT 90
8600 FORWARD 1
8610 RIGHT 90
8620 ENDFOR J
8630 //
8640 FOR J:=1 TO 4 DO // 6
8650 PENUP
8660 FORWARD 4
8670 PENDOWN
8680 FORWARD 20
8690 PENUP
8700 BACK 24
8710 LEFT 90
8720 FORWARD 1
8730 RIGHT 90
8740 ENDFOR J
8750 //
8760 FOR J:=1 TO 2 DO // 7
8770 PENUP
8780 FORWARD 11
8790 PENDOWN
8800 FORWARD 6
8810 PENUP
8820 BACK 17
8830 LEFT 90
8840 FORWARD 1
8850 RIGHT 90
8860 ENDFOR J